home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vc2_sml / vc2_sml.exe / data1.cab / VoodooCoder_Templates / Auto_Retry.ftr next >
Encoding:
Text File  |  1999-02-20  |  524 b   |  19 lines
  1. Exit %ProcType%
  2.  
  3. %sProcName%_ErrorHandler:
  4.   intVCoder_Retry = intVCoder_Retry + 1
  5.  
  6.   If intVCoder_Retry > 100 Then
  7.     Select Case MsgBox("Error " & Err.Number & ": " & vbCrLf & Err.Description & vbCrlf & "Occurred at line " & Erl & vbCrlf & " in " & App.Title & ": %sModule%.%sProcName%", vbAbortRetryIgnore + vbExclamation, App.Title &  " Error.")
  8.     Case vbAbort
  9.       Resume Exit_%sProcName%
  10.     Case vbRetry
  11.       Resume
  12.     Case vbIgnore
  13.       Resume Next
  14.     End Select
  15.   Else
  16.     Resume
  17.   End If
  18.  
  19. Exit_%sProcName%: